  30 clear ;NT=1;FC=179;&(23)=255
  40 &(9)=84;&(0)=7;&(1)=7;&(2)=88;&(3)=88
  50 box -40,9,68,65,1;box -40,4,64,49,2
  60 box 34,9,68,65,1;box 34,4,64,49,2
  70 CX=-64;CY=36;print "B I N G O",;CX=10;print "B I N G O",
  80 for L=-60to -21step 13;box L,10,1,64,1;box L+74,10,1,64,1;next L
  90 for L=-11to 19step 10;box -40,L,68,1,1;box 34,L,68,1,1;next L
 100 C=0;D=0;X=-69;Y=34
 110 for L=1to 125;@(L)=0;next L
 120 for L=75to 95step 5
 130 for M=1to 5
 140 N=rnd (15)+C
 150 if (@(L+1)=N)+(@(L+2)=N)+(@(L+3)=N)+(@(L+4)=N)+(@(L+5)=N)goto 140
 160 @(L+M)=N
 170 CX=X;CY=Y+(-Mmul 10);print #2,N,
 180 N=rnd (15)+C
 190 if (@(L+26)=N)+(@(L+27)=N)+(@(L+28)=N)+(@(L+29)=N)+(@(L+30)=N)goto 180
 195 @(L+25+M)=N
 200 CX=X+74;CY=Y+(-Mmul 10);print #2,N,
 210 next M
 220 C=C+15;X=X+13
 230 next L
 232 for L=1to 3;CY=4;CX=-40;print "H",;CX=34;print "C",
 233 box -40,4,12,9,L;box 34,4,12,9,L;next L
 234 @(88)=-1;@(113)=-1
 240 for L=1to 75
 250 N=rnd (75);if @(N)<0goto 250
 260 @(N)=-1
 262 CX=-72;CY=-32
 264 if N<16print "# ",#2,N," UNDER B",
 266 if N>15if N<31print "# ",#2,N," UNDER I",
 268 if N>30if N<46print "# ",#2,N," UNDER N",
 270 if N>45if N<61print "# ",#2,N," UNDER G",
 272 if N>60print "# ",#2,N," UNDER O",
 278 box 34,-32,70,10,2
 280 if KN(1)<0print " NO? ",
 290 if KN(1)>=0print " YES?",
 300 if TR(1)=0goto 262
 310 if KN(1)<0goto 340
 320 A=0;U=0;gosub 400
 330 gosub 600
 340 A=25;U=74;gosub 400
 350 gosub 600
 360 next L
 400 for S=76+Ato 100+A;if @(S)=Ngoto 500
 410 next S
 430 if A=25return 
 440 print " NOPE",;return 
 500 X=-66
 510 for S=75+Ato 95+Astep 5
 512 Y=24
 520 for T=1to 5
 530 if @(S+T)=N&(21)=255;box X+U,Y,12,9,3;@(S+T)=-1;&(21)=0;return 
 540 Y=Y-10;next T
 550 X=X+13;next S
 560 return 
 600 for S=76+Ato 96+Astep 5
 610 if @(S)=-1if @(S+1)=-1if @(S+2)=-1if @(S+3)=-1if @(S+4)=-1goto 800
 620 next S
 630 for S=76+Ato 80+A
 640 if @(S)=-1if @(S+5)=-1if @(S+10)=-1if @(S+15)=-1if @(S+20)=-1goto 800
 650 next S
 660 for S=76+Ato 100+Astep 6
 670 if @(S)#-1goto 700
 680 next S
 690 goto 800
 700 for S=80+Ato 96+Astep 4
 710 if @(S)#-1return 
 720 next S
 800 CY=-40
 810 for L=0to 9
 820 if A=0CX=-72;print "BINGO--YOU WIN",
 830 if A=25CX=8;print "BINGO--I WIN",
 840 next L
:return ;run 
